Option Strict Off
Option Explicit On
Friend Class frmHelpAbout
	Inherits System.Windows.Forms.Form
	
	
	Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
		Me.Close()
	End Sub
	
	Private Sub frmHelpAbout_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		lblAppTitle.Text = gstrAppTitle
		lblAppVersion.Text = "Version " & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Revision
		Me.Text = gstrAppTitle
		
		On Error Resume Next
		Dim objFSO As Scripting.FileSystemObject
		objFSO = New Scripting.FileSystemObject
		Dim objReader As Scripting.TextStream
		objReader = objFSO.OpenTextFile(My.Application.Info.DirectoryPath & "\Readme.txt", Scripting.IOMode.ForReading, False, Scripting.Tristate.TristateUseDefault)
		txtHelp.Text = objReader.ReadAll
		
	End Sub
End Class